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MODULE EXTEND ( ANGUAGE ' ,, 
[Dent = *V0G=600" 
BEGIN 


' 
ee ane eee ered 
® 

ie COPYRIGHT (c) 1978 1908. 1982, 1984 B 

ie DIGITAL St te CORPORA TION, MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERV 

ie phat SOFTWARE IS A ght UNDER A LICENSE AND MAY BE USED AND COPIED 
ie Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie vannesckaze” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- ae eokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® DIGITAL ASSUMES NO RESPONSIBIL 
!® SOFTWARE ON EQUIPMENT WHICH IS N 


at a et ne) 2 
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ITY FOR THE USE OR RELIABILITY OF ITS 
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NOT SUPPLIED BY DIGITAL. 
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1 io 
§ FACILITY: F11ACP Structure Level 2 
5 ABSTRACT: 
$ This routine extends a file by the requested number of blocks. 
iB $ ENVIRONMENT: 
41 1 i STARLET operating system, including privileged system services 
¢§ § and internal exec routines. 
44 4 1 ie 
rh 5 : 
2 ° AUTHOR: Andrew C. Goldstein, CREATION DATE: 24-Feb-1977 15:42 
4 ‘3 MODIFIED BY: 
1 51 i v02-002 LMP0005 L. Mark Pilant 29-Dec-1981 14:50 
é 3 Added support for extending a file with Cathedral windows. 
4 34 i A0101 ACG26369 Andrew C. Goldstein, 28-Dec-1979 15:46 
5 2? ; Fix multi-header interlock bug 
$ 3$ i A0100 ACG00001 Andrew C. Goldstein, 10-Oct-1978 20:02 
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1984 01:02: lis 4,0-74 S EXT! 
Thee bBo 1§-¢ 300m 18Be PS8E te Wee ShAFeR CHS Sheaexrenp.032210%° «15 

; 3 2 } & Previous revision history moved to F11A.REV 

; & 

; 6) 1 

3 6 1 LIBRARY ‘SYS LIBRARY 118, L352"; 

: o7 ! REQUIRE ‘SRC$:FCPDEF.B ; 

: 65 79 1 FORWARD ROUTINE 

;s @& 80 1 : NOVALUE, ' extend a file 

3s 667 a9 SEDATE -FILESIZE : NOVALUE; ! update file size in FCB 
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1b-§ “1984 01:02: VAK#11 BLiss-32 v4.0-742 » , 
1one8- 138s F396 Peale Rete eae rew.321°% coi 


GLOBAL ROUTINE EXTEND (USER_FIB, FILEHEADER) : NOVALUE = 


e 


Wrn—O”o 


i FUNCTIONAL DESCRIPTION: 


This routine extends the given file by the amount and in the 
de given in the FIB. The blocks are allocated from the storage 
bitmap and retrieval pointers are constructed in the header. 


i CALLING SEQUENCE: 
EXTEND (ARG1, ARG2) 


i INPUT PARAMETERS: 
ARG1: address of FIB for operation 
ARG2: addres of file header 


‘ 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
: IMPLICIT INPUTS: 
: CURRENT _WINDOW: window of file, if open 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
‘ 
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i OUTPUT PARAMETERS: 

i NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
blocks allocated, file header altered 
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1 

1 = ae 

1 

1 

: 

1 USER_FIB : REF BBLOCK, ' FIB of operation 

; FILEREADER : REF BBLOCK; ! file header to extend 

1 LABEL 

} ore ALLOC_LOOP; ! Block allocation and recording loop 
1 18 : REF BBLOCK, ! address of FIB 

1 HEADER : REF BBLOCK, ! address of current file header 

1 FCB : REF BBLOCK, ! FCB of header being extended 

1 NEW_HEADER : REF BBLOCK, ! next extension file header 

1 WINDOW SEGMENT : REF BBLOCK, ! address of the next window segment 
1 BLOCKS NEEDED, ' number of blocks to be allocated 

1 AREA : REF BBLOCK, ! address of header map area 

1 MAP_POINTER : REF BBLOCK, ! pointer to current retrieval pointer 
1 CBT_COUNT, ' count of bitmap scans 

1 EXTEND_VBN, ' sterting VBN of extend 

1 LBN ' LBN of hocks allocated 

1 ALLOC_COUNT, ' number blocks allocated 

1 COUNT ' count o blocks for map peta ers 

1 OLD_LBN, ' LBN of previous retrieval pointer 
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: } $ ; OLD_COUNT; ! count of previous retrieval pointer : 
: 4 8 4 EXTERNAL ; 
+. 4 USER_STATUS VECTOR, ' 1/0 syarus block of user : 
7%, 4 PRIMARY FCB : REF BBLOCK, ' FCB o le : 
3; 1 4 UNREC_LEN, ' LBN of unrecorded blocks : 
3; 1 g 4 UNREC_ COUNT ' count of unrecorded blocks : 
; 4 23 GLEAMO LAGS: BIIVECTOR, §— | ciganyp action flags 
5 135 48 CURRENT“VINDOW : REF BBLOCK; { window oF file if open ; 
> 4 9 EXTERNAL ROUTINE : 
3; 3 PMS_START SUB, ! start pydfunction metering 3 
7 § ND_SUB, ! end subfunction metering $ 
3 140 SEARCH FCB ! search FCB List for FCB 3 
3 141 4 NEXT_HEADER, i read next extension header : 
3 106 5 MARK_DIRTY, ! mark buffer for write-back 3 
:; 16 $ ALLOC_BLOCKS ! allocate blocks from storage map 3 
: 144 EXTEND_HEADER, ' create extension header 3 
3: «6145 3 RETURN BLOCKS, ! return blocks to storage map 3 
3 146 CHECKSOM ' compute file header checksum 3 
> 14 60 TURN_WINDOW, i Update file window ; 
; 148 61 IT _FC6 ! initialize FCB $ 
: 149 6¢ WRITE HEADER, i write file header ; 
: 150 6 READ_READER, ! read file header 3 
: : ; rf: MARK_INCOMPLETE; ! flag all windows as incomplete ; 
: 1 ; 
3 is H Start metering for this subfunction. : 
: 1 : : 
3 137 19 PMS_START_SUB (PMS_ALLOC); ; 
; 139 i : — ¥ ms ongcet ten control bits for validity. Then get the block count ; 
: ! and set up pointers. 3 
: 6161 74 ! é 
; «(16 75 $ 
; 18 7 FIB = .USER_FIB; 3 
3 (164 7 IF (NOT .FIBCFIBSV ALCON] AND .FIBCFIBSV_FILCONJ) : 
: 165 4 OR -F BCE BSL _EXxszJ LSS é 
3 196 THEN ERR_EXIT (SS$_BADPARAM) ; ‘ 
: 168 1 BLOCKS NEEDED = ( ; 
3 1g § if -F IBLF IBSV_ALDEF J é 
: HA hg ets ene Nl gk COCVCOSU_ERTEND). -F IBCF IBSL_EXSZ]) : 
: 17 5 fo ¥ ; 
:. on 3 
: «1746 HEADER = .FILEWEADER; : 
; 175 FCB = .PRIMARY_FCB; F 
3 176 EXTEND_VBN = 1; : 
F 178 83 : If the file is marked contiguous best effort, make the extend so. 3 
Bn 9 F 
$ 18 94 IF .HEADERCFH1$V_CONTIGB) : 
: 182 95 THEN 3 
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If NOT .FIBCFIBSV_ALCON) THEN FIBCFIBSV_ALCONB) = 1; 
! Scan through this header's map area and through the map area of all 


' extension headers to compute the current file size and find the end of file 
; to start extension. 


ang 
MAP_AREA = .HEADER + .HEADERCFH1SB_MPOFFSETIJ*2; 


IF MAP AREACFMISB_INUSE] NEQ O AND .FIBLFIBSV_FILCON] 
HEN ERR_EXIT (SS$~BADPARAM) ; 


MAP_POINTER = .MAP_AREA + FMISC_POINTERS; 
DECR “77 yaaa FROM .MAP_AREACFM1$B_INUSEJ/2 TO 1 DO 


EXTEND _VBN = .EXTEND VBN + .MAP_POINTERCFM1$B_COUNT) + 1; 
MAP_POINTER = .MAP_POINTER + 4; 


4 

4 

4 
NEW_HEADER = NEXT_HEADER (.HEADER, .FCB); 
IF <NEW_HEADER EQC 0 THEN EXITLOOP; 
HEADER = .NEW_HEADER; 
If .FCB NEQ 0 
THEN FC CBCFCBSL_EXFCB) 
ELSE IF SEARCH FCB (HEADERCFH1S$W_FIDJ) NEQ 0 

T tss$ CT 
4 
4 
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); 
: Check the remaining parameters and set the relevant cleanup action flags. 


J] NEQ 0 AND .FIBCFIBSL_EXVBN] NEQ .EXTEND_VBN 
 BADPARAM) ; 


“e 
= za 
mm 
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R); 
TRUNCATE) = 1; 
—FIXFCB) = 1; 

! init count of bitmap scans 
2) = 0; 

VBN) = .EXTEND_VBN; 


Tes 

ibat 
Now loop, allocating blocks fom the storage map and building retrieval 
poraters, tA, tne header. Accumulate blocks allocated in the I/0 
statu ck. 


——O mre 
owo~ 

owe 

"HNO 


—————— RRO OO 


LOOP: 


L_.BLOCKS_NEEDED EQL 0 DO 
BEGIN 


ALLOC_BLOCKS (.FIB, .BLOCKS_NEEDED, LBN, ALLOC_COUNT); 
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COUNT = 

F1BC¢ 188i mati epeaees Clad BSL_EXSZ] + . COUNT; 

reign EDED = “aiotes A EEDED = MINU fOBLOEKS NEEDED, - COUNT); 
: pile the m A... pointers. | if the new area allocated is contiguous with 
i the Last nter in the header, merge the pointers. 


IF .MAP_AREACFM1$B_INUSE] NEQ 0 
THEN 


OLD_LBN = .MAP _POINTERC FM1SW W PREVLLBNJ; 
OLD“LBN< 16; 8> POINTER B PREVHLBN): 
OLD-COUNT = ” MAP “POIRTERCFA 1$B_PREVCOUNT) + 1; 


ee LBN + .OLD_COUNT EQL .LBN 


MAP_PO P ePOIN NTER 
MAPAREALFN1 SB. TUS MAP AREACEMISB. INUSE] - 2; 
Cou T= »COUNT + .OLD_COUNT; 
LN 2 “0D. LBN 


! Now build retrieval pointers to map the allocated blocks. If she map fills 
! up, store the unrecorded blocks in common so they can be returned 

' by the extend chesnup. and create an extension header. If he oer 

! extension is inhibited, return the unrecorded blocks and get out quietly. 
We return header full status only if no new blocks were recorded. 


UNTIL .COUNT EQL 0 DO 


Sage REE TURES + 2 GTR .MAP_AREACFM1$B_AVAIL] 


BEGIN 
IF _ .FIBCFIBSV_NOHDREXT) 
THEN 
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PAD NNN NED INNA A BB BBP FE FP NOAAAA MINNIE FPP LLL 
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BEG 
ott! LOCKS (.LBN, . 
FIBCFIBSL_EXSZ) = .fIB PY ase: *exsz] - COUNT; 
IF. FBC at tie ~oesz EQL 
THEN ERR_EXIT~ (SS$_HEADERFULL); 
LEAVE ALCOC_LOOP: =~ 
ELSE 
IN 
EC_LBN = .LBN; 
EC™COUNT = . COUNT 
DER = EXTEND HE neADén (. Seite 
.FCB NEQ te Bric 
AREA = LREADER . .HEADERCFH1$8_APOF FEE tea; 
POINTER = .MAP Ania : OF $C_POINTERS 
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} H | Fatty build the next retrieval pointer. 
1 
! MAP_AREACFM1SB_INUSE] = .MAP_AREACFMIS$B_INUSE) + 2; 
1 MAP =pOinT 4 FM1$B_HIGHLBN) = Pe wit >; 
1 MAP~POINT ntrR i$e-¢ bONTS SA CeO 256) - 1; 
1 MAP_POINT 4 Fm gu iby OM Bi) ‘, none, 
! MAP~POINT 

LBN = .LBN + MIN ( - COUNT 256); 

COUNT = .COUNT = MIN (.COUNT, 256); 

END; 

UNREC_COUNT = 0; ! all blocks are now recorded 


ane was ont iguous ey gto we are done. Else count the pose 
h the alto eater. After 5 passes, shut off he contiguous b 


r est 
t to avoid taking forever (since each CBT try is a full sweep of Ds MN 


; 
: 
5 
5 


! end of allocation loop 


! If the wd is open by the caller, turn the window to the last VBN 

i that prev tously patated oe. a friendly gesture. Then, if the current header 
i is an extension head ere write it and read back the primary header. Also 

i set the contiguous bit in the header a propriately and return the extend 

i data in the FlB. Update the file size in the primary FCB. 


IF ees -WINDOW NEQ 0 


. CURRENT_WINDOWLWCBSV CATHEDRAL] 
ay venuve CALC (TURN_WINDOQ, . CURRENT WINDOW 
ELSE KERNEL~CALL (MARK-INCOMPLETE, .PRIMARY_FCB): 


“ 
4 
& 
4 
& 
4 
4! 
a 
4 
4 
E 
4 


-HEADER, .FIBCFIBSL_EXVBNJ-1, .FCBCFCBSL_STVBN)) 


A ie FID_NUM) NEQ .FISCFIBSW_FID_NUM] 


BEGIN 
URITE HEADER ( HEADER) ; 


WRITE_H 
If .FCB NEO ws THEN KERNEL_CAL LL CT NIT_FCB, .FCB, .HEADER); 
HEADER = READ_HEADER (FIBCFIBSW_FIDI> CB mane FCB); 


Cn WBA WIA BUN ANINNNNNNRUUY 2 = 3 
WO OBVO UE wo MEW "SO OONCOVF WN “ODO VNR UFuT 


MARK_DIRTY (HEADER); 


ED, e—_——_ 
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7 ! Stop metering of this subfunction 
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PMS_END_SUB (); 
END; ! end of routine 
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KERNEL. CALL (UPDAT ELF Cithet : 16CF BSL ~EXVBN) + .FIBCFIBSL_EXSZ] = 1); 


EXTEND 


EXTEND 
\V04-000\ 


USER STATUS, oat con FCB 
UNRET_L T 

CLEANOP. Mags. CORRENT vcB 
CURRENT Wl! “ett PMS_START_S 


RETURA BLOCKS, CHECKSUM 
TURN inIT FCB 
WRITE HEA EADER READ. HEADER 


16); 


WESeec1984 91:08:18 YL TABLLEEERE HG BTE2sexreno.o52:%08° cc? 
ATSL WIBLKI = ROT (.FIGCFIOSL_EXVOND + .FIBCFIBSL_EXSZ3 - 1, 


OMPLETE 
SY SSCAKANL 
SCODES,NOWRT,2 
EXTEND, Save R2,R3,R4,R5,R6,R7,RB,RO,R10,- = 0382 
#12, SP : 
+ 0470 
PMS_START_SUB : 
user dtp FIG, FIB™ > 0476 
(FTB) 1$ + 0477 
7 (F1B), 2% ; 
@4 (FB) ; 0478 
ifs 22(FIB), 5$ ; 4 
¢ aN RO ; $288 
(RO), RO 3 
RO, 4(F 18) : 
24 (F 1B) ; 
RO. BLO O&KS NEEDED : 
ae FIB), BLOCKS_NEEDED : 04 
FILEHEADER, HEADER + 0487 
PRIMARY FCB, FC : 04 
a: Pee atey, 7s : Oe 
22¢F 1B), ag : > 0496 


8 
tbese -1984 01:02: VAX-11 Bliss-32 V4.0-742 Pa 9 ExTl 
1 ~3007 1383 93:98:48 DISKSVMSMASTER:CF1IA.SRCJEXTEND.B32:1." (2) 
16 A 02 88 7 BISB2 #2, 22(F1B) ; ’ 
$6 01 AB OA 35 7s areee. Tehekben R0 + 0505 : 
684 MOVA HEADER) CROJ, MAP_AREA : ; 
08 A4 TsiB (MAP_AREA) + 0507 : 
16 ag 03 BBS HF 22(F 1B), 13$ : 3 
OA AG OSE D 8$: MOV j (rd), MAP_POINTER : ; 
1 8B AG OA MOVZBL 8(MAP_AREA)> R1 ; : 
1 ‘ C f DIVLe #2, RT : ; 
INCL  MAPCOUNT : ; 
tA BRB 10$ : : 
o1 AS 9A 9$: MOVZBL 1(MAP_POINTER), RO ; : 
1 A046 ROVAB 1(RO)TEXTEND VONJ, EXTEND_VBN : : 
C ADDL2 #4, MAP_POINTER : ; 
Fi 1 £F 10$ SOBGTR COUN ; ; 
0500 8F BB PUSHR #°M<RB,R10> : ; 
00006 ct 2 F F CALLS #2, NEXT_HEADER : F 
& D 0 MOVL RO, NEW_READER : ; 
3 1 97 BEQL : : 
58 ; D0 00099 MOVL § NEW HEADER, HEADER : ; 
AD 09¢ STL OF : ; 
06 1 Hi BEQL Ss : ; 
SA OC AA DO OOOA MOVL 12¢FCB), FCB : F 
BS 11 O00A4 BRB : ; 
02 AB OF OOAG 11$:  PUSHAB 2(HEADER) : ; 
00006 CF or FB OO0A CALLS #1, SEARCH_FCB : ; 
9 D O04 TSTL = RO F ; 
A9 13 0008 BEQL «6s 7$ : ; 
0800 8F BF 08 CHMU #2048 : ; 
4 000 RET : F 
1c OA D3 12$: TSTL 28(F 1B) : : 
09 1 BA BEQL 4$ : F 
55 1c OA p4 B CMPL 8(FIB), EXTEND_VBN : ; 
: 1 C BEQL 4 : : 
4 BF O0C2 13$:  CHMU #2 : ; 
4 000€ RET : ; 
8 DD C3 14$:  PUSHL HEADER : ; 
0006 CF 1 FB ¢ CALLS #1, MARK_DIRTY : : 
000G CF 00040002 BF ¢C ¢ BISL2 #262146, ~CLEANUP_FLAGS : ; 
D4 0000 CLAL BT COUNT : ; 
18 A2 D4 000D CLRL 4(FIB) : ; 
1c A D DA MOVL § EXTEND_VBN, 28(F1B) : ; 
DE 15$:  TSTL  BLOCKS“NEEDED ; ; 
E BNE : ; 
OOF E BRW 3 3 
AE 9F OOOES 16%:  PUSHAB ALLOC_COUNT : ; 
C AE 9F O00E PUSHAB LBN ; ; 
0084 ar BB OO00EB PUSHR #°M<R2,R7> F : 
00006 cf . EF CALLS #4, ALLOC BLOCKS : ; 
04 AE D F4 MOVL COURT ; ; 
18 «OA C F8 ADDL2 COUNT B ; : 
3 D FC MOVE BLOCKS NEEDED, RO : : 
b FF L RO, COONT 3 3 
BLEQU 3 § 
59 dO 001 VL COUNT . RO ; : 
f 107 17$:  SUBL2 RO, BLOCKS _NEEDED : ; 
08 AG 10A 7STB. 4-8 (MAP_AREAY : : 
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384 12:26:58 DtScSunsnasten: 


BEQL 18$ 

MOVZWL -2(MAP_POINTER), 

INSV. =4(MAP“POINTER). 
MOVZBL -3(MAP POINTER), OLD’ COUNT 
INCL. OLD_COON 

ADDL3 OLD-COUNT, OLD_LBN, RO 
CMPL RO, ~LBN 

BNEG 18$ 

SUBL2 #4, MAP_POINTER 

5 #2, 8(MAP_AREA) 

ADDL OL6 COUNT: COUNT 

MOVAB BRE , a9 

TSTL NT 

BNEQ 

BRW $ 

MOVZBL (R9), RO 

ADDL2. #2, Ro 

CMPLV #0, #8, 9(MAP_AREA), RO 
BBC #1, 23(FIB), 21$ 

PUSHL COUNT 

PUSHL LBN 

CALLS #2, RETURN_BLOCKS 

SUBL COUNT. 24(F 1B) 

BNE 7 

CHMU #2248 

RET 


MOVL §LBN, UNREC_LBN 

MOVL COUNT, UNREC_COUNT 

PUSHR #*M<RB,R10> 

CALLS #2, EXTEND _HEADER 
L RO, HEADER 


MOV 
TSTL SOF : 

BEQL : 

MOVL (FCB), FCB 

MOVZBL 1(HEADER), RO 

MOVAW (HEADER)CROJ, MAP_AREA 
MOV 10(R4), MAP_POINTER 
MOV 8(R4), RO 

ADDB2 #2, (RY) 

MOVB LBN+2, (MAP_POINTER) 
MOVL COUNT, RO 

CMPL 6 RO, #256 

BLEG = 2 § 

MOVZWL We 6, RO 

SUBB3. #1, Rg 1(MAP_POINT 
MOVW LBN. (MAP_POINTER) 
ADDL2 44, MAP_POINTER 

ADDL2 RO. LBN 

SUBL2 RO. COUNT 

a : me COUNT 

BLBS er IB) 27$ 

INCL  CBT_COUNT 


OLD_LBN 
F167 #8, OLD_LBN 


PAAAMAAAO 


Soooooocooo 
w 


3; Routine Size: 668 bytes, Routine Base: S$CODE$ + 0000 


8 

EXTE 1b-se -1984 01:02: VAX-11 Bliss-32 V4.0-742 P 1 ExT! 
Fac 000 1 ~$007 1382 93:98:48 DISKSVMSMASTER:CFIIA.SRCJEXTEND.B32:1 > 3} v04: 

oe FrO6 $4 SolpR 268: Bree fag CACFIB : Ses 

50 00006 i i" i 365: Ov SURRENT WINDOW, RO + 0645 : 

1D 0B a0 6 £0 OO1E BBS #6, 1N(RO), 288 3 0648 : 

2C AA bp 1EA PUSHL  44(FCB) > 0649 ; 

7E 1c A2 1 C3 OO1E SUBL3 #1 (F 1B), -(SP) : ; 

0101 F 6B OOTF PUSHR  #*M<RO,RB> : ; 

4 DD OO1F PUSHL : ; 

E BD 1F PUSHL SP : F 

00006 CF 9F OOTFA PUSHAB TURN WINDOW ; ; 

000000006 9F g Fe HS CALLS #7, SASYSSCMKRNL : ; 

00006 CF DD of 28$:  PUSHL PRIMARY_FCB : 0650 : 

2) ae ; : 

00006 cf oF OF PUSHAB MARK_INCOMPLETE : : 

000000006 9F 4 FB 00213 CALLS #4, SASYSSCMKRNL : ; 

04 A2 02 , 8 1A 29S: CHP (HEADER) , 4(F IB) ; 0653 ; 

3 pd 8 PUSHL HEADER + 0656 ; 

00006 CF 1 FB 00 CALLS #1, CHECKSUM : F 

0000G CF 0 FB 00 CALLS #0, WRITE HEADER + 0657 ; 

A D5 0022 TSTL FCB : 0658 3 

Y 13 0022F $ : 3 

58 DD 00231 PUSHL HEADER : : 

SA DD 00 3 PUSHL A : : 

2 DD 00 PUSHL : ; 

E OD 00237 PUSHL  $P : : 

00006 CF 9F 00239 PUSHAB INIT_FCB : ; 

000000006 9F 05 FB 00230 CALLS #5, S#SYSSCMKRNL : ; 

00006 CF pp 44 308 PUSHL PRIMARY_FCB + 0659 : 

04 A2 9F 00248 PUSHAB : ; 

wet, MO AES SAS Hg Reaegeane 7 7 

58 DD 31$ PUSHL HEADER > 0666 : 

00006 CF 01 FB CALLS #1 ARK DIRTY F F 

50 1c A2 18 Ag ct 6 A ADDL 24(F IB), (FIB), RO ; 0667 ; 

12 =A 50 1 be 0 e3 ROTL #16, RO, 18(HEADER) : : 

oc a8 ao 07 31 FO 006 TNSV. ORI. ATS dc TSCHEADERD eee 

mR aie | a Gh er Ohare ERTS ALS Zerg) RN jose | 

00006 CF 18 Az is 7F MOVL 26¢F1BS, USER_STATUS+4 > 0670 : 

50 DD 3 PUSHL R : 0671 F 

HS a a i : 

0000v CF er PUSHAB UPDATE_FILESIZE : : 

000090006 OF 4 FB F CALLS #4, @A#SYSSCMKRNL : : 

00006 CF 0 FB CALLS #0, PMS_END_SUB : 0676 : 

04 00298 RET : 0678 ; 


Bliss-32 V4.0-74 
SM 


X=11 2 
SKSVMSMASTER: ch FIiA. SRCJEXTEND. 832: 1 a Ri 


V04=000 iessectage GN:8BN6 


GLOBAL ROUTINE UPDATE_FILESIZE (SIZE) : NOVALUE = 


— 
ow 


!o4 


FUNCTIONAL DESCRIPTION: 


ao 


MFwr OOONAUE WI 


This routine updates the file size recorded in the primary FCB of 
the file extended. 


CALLING SEQUENCE: 
UPDATE _FILESIZE (ARG1) 


oO 


$ 1 

3 1 

3 1 

3 1! 

3 1! 

: 1! 

: 1} 

; 1! 

; 1! 

; 1 i 

3 1! 

3 1! 

3 91 1 ! INPUT 5 ghd ae 

3 24 ! : ARG1: amount to increase size to 
Hy 8 94 1! iat > INPUTS: 

3 S7 9 : : PRIMARY_FCB: address of file FCB or zero 
3 85 O69? 1 ! OUTPUT PARAMETERS: 

; 386 98 1! NONE 

3 87 5344 1! 

3 88 0 1 ! IMPLICIT OUTPUTS: 

; 89 0701 1! NONE 

3 90 07 ¢ 1! 

3 91 703 1 ! ROUTINE VALUE: 

; 3 704 1! NONE 

; 39 705 1! 

; 94 B08 1 ! SIDE EFFECTS: 

: 395 878 1! FCB updated 

: 396 708 1! 

: 397 0709 1 !-- 

; 398 0710 1 

3 99 gett BEGIN 

; 400 At 

: 401 14 EXTERNAL 

: rt me PRIMARY_F CB : REF BBLOCK; ! FCB of file 
5 404 Ong If .PRIMARY_FCB NEQ 0 

3 rt tat THEN PRIMARY PF eBLE BSL -FILESIZE] = .SIZE; 
: 407 0719 END; ! end of routine UPDATE_FILESIZE 


0000 000 ENTRY UPDATE FILESIZE, Save nothing 3 9679 

50 00006 GF : sn ROVL PRIMARY _FCB. RO ; 0716 

8 A sew MOVL SIZE, 56(RO) : 0717 
. ' . Be 03 E 1$ RET : 0719 


3; Routine Size: 15 bytes, Routine Base: SCODE$ + 029¢ 


; 408 
; 409 


<m 
_ 5 


EXTEND 
v04-000 


410 


0722 0 ELUDOM 


Name Bytes 


SCODES 


683 NOVEC,NOWRT, 


Library 


ile 


~-$255$DUA28: CSYSLIBILIB.L32;1 


PSECT SUMMARY 


Statistics 
eoceen-= Symb 
Total Load 
18619 


COMMAND QUALIFIERS 


Attributes 


RD , EXE,NOSHR, 


ls -------- 


ed 
34 


Percent 
0 


00 
7. 
Ss 
oo 
000 
ae 
-o 
hreo— 
mo 
oro 
lat a 


35 


LCL, REL, 


Pages 
Mapped 


1000 


VAX-11 Bliss-32_ V4.0-742 


DISKSVMSMASTER:CF11A.SRCJEXTEND. B32; ° 


CON,NOPIC ,ALIGN(2) 


Processing 
Time 


00:02.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$:EXTEND/OBJ=OBJS$:EXTEND MSRC$:EXTEND/UPDATE=(ENH$: EXTEND) 


Lexemes 
conpite 


683 code : 0 data bytes 


me: 0: ° 
Time: 00:45.0 


re 
/CPU-Min: 15493 
Used: 252 pages 
tion Complete 


13 
* 3) 


<m 


Pee Se Se Se Se Se Se Se Se SE Se Se Se Se Se se Se Se Se Sese Se Se seae teases 


=} 


AL EQUIPMENT CORPORATION 


AH-BT13A-SE 
DENTIAL AND PROPRIETARY 


VAX/VMS V4.0 


0165 


